function ValueResult=CompareAffiliation(ValueAffiliation1,ValueAffiliation2)

if size(ValueAffiliation1,2)>size(ValueAffiliation2,2)
    ValueTemp=ValueAffiliation2;
    ValueTemp2=ValueAffiliation1;
else
    ValueTemp=ValueAffiliation1;
    ValueTemp2=ValueAffiliation2;
end
ValueResult=0;
nTemp=abs(size(ValueAffiliation1,2)-size(ValueAffiliation2,2));
nTemp2=size(ValueTemp,2);
for n1=1:nTemp
    if strcmpi(ValueTemp,ValueTemp2(1,n1:n1+nTemp2-1))==1
        ValueResult=1;
    end
end
